home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Programming / OUI / envman.lha / EnvManager / rcs / listreq.cc < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-23  |  1.3 KB  |  82 lines
  1. head    1.1;
  2. access;
  3. symbols;
  4. locks
  5.     dlorre:1.1; strict;
  6. comment    @// @;
  7.  
  8.  
  9. 1.1
  10. date    96.08.23.16.57.28;    author dlorre;    state Exp;
  11. branches;
  12. next    ;
  13.  
  14.  
  15. desc
  16. @EnvManager : Gestionnaire d'Environnement
  17. Auteur : Dominique Lorre
  18. @
  19.  
  20.  
  21. 1.1
  22. log
  23. @Initial revision
  24. @
  25. text
  26. @// listreq.cc
  27. // 01.02.95
  28.  
  29. #include "listreq.h"
  30.  
  31. void rlist::open(screen *nws)
  32. {
  33.  
  34.     strcpy(sname, def) ;
  35.     ws = nws ;
  36.  
  37.     g = new gadgetlist(this, 3) ;
  38.  
  39.     g->box(20, g->fontheight+8, ws->width/2-40, g->fontheight+4) ;
  40.     new list(g, WFUNC(&rlist::flist), NULL, def) ;
  41.  
  42.     prepbox(TRUE) ;
  43.  
  44.     window::_open(NULL, BUTTONIDCMP,
  45.         WA_Title,               titre,
  46.         WA_Activate,            TRUE,
  47.         WA_DragBar,             TRUE,
  48.         WA_SimpleRefresh,       TRUE,
  49.         WA_Gadgets,             g->glist,
  50.         TAG_DONE) ;
  51.  
  52.     if (initok)
  53.         g->updategadgets() ;
  54. }
  55.  
  56. void rlist::flist(gadget *g, unsigned long classe, unsigned short code)
  57. {
  58.     strcpy(sname, ((list *)g)->curlist) ;
  59. }
  60.  
  61. STRPTR ListRequest(STRPTR title, nlist *l)
  62. {
  63. STRPTR retstr=NULL ;
  64. rlist rs(120, 20, 400, 70) ;
  65.  
  66.     rs.def = def ;
  67.     rs.titre = title ;
  68.  
  69. //    beginWait();
  70.     rs.open(ns) ;
  71.     rs.eventloop() ;
  72.     rs.close() ;
  73. //    endWait() ;
  74.  
  75.     if (rs.okflag) {
  76.         retstr = new char[strlen(rs.sname)+1] ;
  77.         strcpy(retstr, rs.sname) ;
  78.     }
  79.     return retstr ;
  80. }
  81. @
  82.